﻿title  CP/M V2.2 CBIOS for ZOBEX DD-FDC controller (30-Sep-81)
;########################################################;
;#                                                      #;
;#    CP/M Cbios for the Zobex DD-FDC Disk Controller   #;
;#                                                      #;
;#======================================================#;
;#                                                      #;
;#   Written by: Frank MacLachlan                       #;
;#   Date:       17-Mar-81                              #;
;#                                                      #;
;#   Edit History:                                      #;
;#                                                      #;
;#      14-Sep-81  slow HD restore, then fast restore   #;
;#        TTY-40 list driver assembly option added.     #;
;#                                                      #;
;#      26-Sep-81  alternate sector table added.        #;
;#                                                      #;
;#      30-Sep-81  Hard Disk changed to drives A & B,   #;
;#        Floppy Disks changed to drives C & D.         #;
;#                                                      #;
;#      15-Dec-81  MST Centronix Parallel Port Added    #;
;#                                                      #;
;#      22-Apr-82  Parallel Port Driver Mod to delete   #;
;#        LF following CR, for Centronics 703 prntr.    #;
;#                                                      #;
;#      08-May-82  hard disk changed to drives A,B,C    #;
;#        floppy disk drives are E, F                   #;
;#              (Pat Winterbauer)                       #;
;#        MSIZE changed to conform to cpmXX.com size    #;
;#      20-july-82 OK by Sandor                         #;
;########################################################;


;       Universal truths:


FALSE   equ     0
TRUE    equ     not FALSE
NIL     equ     0               ; NIL pointer


;       Assembly options (in file HDSETUP.Z80)


*include hdsetup.z80


;       CP/M related constants:


MSIZE   equ     63              ; CP/M system size in decimal kbytes
BIAS    equ     (MSIZE-20)*1024 ; bias for systems greater than 20k
CPMTOP  equ     MSIZE*1024      ; size of CP/M system in bytes
CCP     equ     3400h+BIAS      ; base of CCP
BDOS    equ     CCP+800h        ; base of CP/M BDOS
BDOSE   equ     BDOS+0006h      ; entry point for CP/M BDOS
CBIOS   equ     CCP+1600h       ; base of this module
BOOTE   equ     CBIOS           ; CBIOS cold boot entry point
VERS    equ     22              ; CP/M version number
TRYS    equ     10              ; number of retries for read/write errors


SECLEN  equ     128             ; number of bytes per sector
LOGDRV  equ     0004h           ; CP/M stores logged disk here
BUFF    equ     0080h           ; default DMA buffer adr
TBASE   equ     0100h           ; base adr of transient pgm area


;       Hard Disk constants:


HDISK   equ     HDSK12 | HDSK18
     if HDSK18
MAXHD   equ     2               ; maximum hard disk drive number
      endif
     if HDSK12
MAXHD   equ     1
      endif
HDRATE  equ     0000b           ; hard disk step rate is 10 usec
HDBASE  equ     80h             ; base of I/O ports for HD controller
WPVAL   equ     77/4            ; first cylinder requiring write precomp


;       Floppy Disk constants:


MAXFD   equ     1               ; maximum floppy drive number
RATE    equ     00b             ; step rate = 3 msec for Shugart 850 drives
FDBASE  equ     90h             ; base of I/O ports for FD controller


;       BDOS request codes:


CONOUT  equ     2               ; write console char
SETUSR  equ     32              ; set user code


;       Special characters and assignments:


BELL    equ     07h             ; beep char
BS      equ     08h             ; backspace char
LF      equ     0ah
VT      equ     0bh             ; vertical tab char
FF      equ     0ch             ; form feed char
CR      equ     0dh
EOF     equ     1ah             ; CP/M end of file char (control z)
ULINE   equ     5fh             ; underline char
DEL     equ     7fh             ; delete


;       Drive flag bit and field assignments:


DSBIT   equ     7               ; set if double sided disk
DDBIT   equ     6               ; set if double density disk
DCBIT   equ     5               ; set if disk was changed


;       Block/deblock definitions:


BUFCNT  equ     4               ; number of disk buffers to allocate
BUFSIZ  equ     512             ; maximum number of bytes to buffer
BUFMSK  equ     03h             ; physical sector mask for 512 byte sectors
DDSPS   equ     64              ; number of double density sectors/side
MODFID  equ     0               ; buffer modified bit position
UNALOC  equ     1               ; unallocated block bit position
WRALL   equ     0               ; write to allocated record
WRDIR   equ     1               ; write to directory record
WRUAL   equ     2               ; write to unallocated record


;       Library definitions:


        list    off
*include zsiodfs.z80
*include 179Xdfs.z80
*include zdmadfs.z80
*include zdddfs.z80
*include siodfs.z80
*include ctcdfs.z80
*include 9519dfs.z80
      if HDISK
*include wd1000.z80
      endif
        list    on


;       Character I/O device port definitions:


CRTCSR  equ     SIO0AC          ; crt control/status register
CRTDAT  equ     SIO0AD          ; crt data port


RDRCSR  equ     SIO1AC          ; reader control/status register
RDRDAT  equ     SIO1AD          ; reader data port


PUNCSR  equ     SIO1AC          ; punch control/status register
PUNDAT  equ     SIO1AD          ; punch data port


;       Line printer definitions:


LFAULT  equ     DCDBIT          ; printer fault bit
LBSY    equ     CTSBIT          ; printer busy bit
MXLCNT  equ     59              ; max no. lines/ page


      if LSTPAR ; using parallel port for LST device
LSTS    equ     PIOC            ; status port (lower four bits of C port)
                                ; 0=busy,1=out of paper,2=selected,3=error'
LSTD    equ     PIOB            ; data port (B port)
LSTCTL  equ     PIOC            ; control port (upper four bits of C port)
                                ; 4=strobe',5=autofeed',6=init',7=select'
LSTCMD  equ     PIOCMD          ; 8255 mode command port
lstini  equ     81h             ; 8255 mode command initialization byte
stron   equ     0E0h            ; strobe on,  autofeed off, init off, select on
stroff  equ     0F0h            ; strobe off, autofeed off, init off, select on
bsymsk  equ     01h             ; mask for busy status bit
      endif ; using parallel port for LST device


      if NOT LSTPAR ; using serial port for LST device
LSTS    equ     SIO0BC          ; status port
LSTD    equ     SIO0BD          ; data port
      endif ; using serial port for LST device


;       Miscellaneous definitions:


      if HDISK
MAXDRV  equ     MAXHD+MAXFD+1  ; maximum drive number (0..MAXDRV)
      else
MAXDRV  equ     MAXFD
      endif


;       DPB (Disk Parameter Block) structure definition:


        struct  0
SPT:    defs    2               ; sectors per track
BSH:    defs    1               ; block shift factor
BLM:    defs    1               ; block mask
EXM:    defs    1               ; extent mask
DSM:    defs    2               ; disk size - 1
DRM:    defs    2               ; maximum directory number
AL0:    defs    1               ; alloc 0
AL1:    defs    1               ; alloc 1
CKS:    defs    2               ; check size
OFF:    defs    2               ; track offset to group 0
OSS:    defs    1               ; number of OS sectors
FST:    defs    1               ; first sector on track
BMK:    defs    1               ; buffer mask
        endm


;       IOPB (I/O Parameter Block) structure definition:


        struct  0
IDRV:   defs    1               ; drive number
ITRK:   defs    1               ; track number
ISEC:   defs    1               ; sector number
IDMA:   defs    2               ; DMA address
        endm


;       BDB (Buffer Descriptor Block) structure definition:


        struct  0
BDRV:   defs    1               ; drive number
BTRK:   defs    1               ; track number
BSEC:   defs    1               ; sector number
BBUFP:  defs    2               ; ^buffer
BFLGS:  defs    1               ; buffer flags
BLINK:  defs    2               ; link to next BDB
BDBSIZ: defs    0               ; defines number of bytes in a BDB
        endm


;       Macro definitions:


tsta    macro                   ;; set accum flags
        or      a,a
        endm


clra    macro                   ;; A := 0
        xor     a,a
        endm


clrcf   macro                   ;; CY := 0
        or      a,a
        endm




;########################################################;
;#                  CCP/BDOS PATCHES                    #;
;########################################################;


;  The following defines the name of the system startup file.
;  This file is executed only after a cold boot.


      if RUNSUM
        org     CCP+0007h
        defb    msglen          ; msg length
sumsg:  defb    '@ STARTC'      ; startup msg
msglen  equ     $-sumsg
      endif




;  The following patch to the CCP causes the current user number
;  to be printed each time the CCP prompt is printed.


        org     CCP+0392h
        call    upvec           ; call routine in bios




;  The following patch to the BDOS causes the RUBOUT key to behave
;  like the BACKSPACE key when the BDOS line input function is invoked.


        org     BDOS+021bh
        jr      BDOS+0207h




;  The following patch installs a link to a routine in the CBIOS
;  area which makes the user 0 area public.


      if USR0
        org     BDOS+075eh
        jp      pubvec          ; jump to bios routine
      endif




;  The following patch to the BDOS is required for proper operation
;  with blocking and deblocking.


        org     BDOS+0ad2h
        nop
        nop
        ld      hl,CCP


        form
;########################################################;
;#               SYSTEM ENTRY VECTORS                   #;
;########################################################;


        org     CBIOS


        jp      sysini          ; cold boot system initialization
wbote:  jp      wboot           ; system reboot


        jp      cons            ; console input status chk
        jp      conif           ; console input routine
        jp      cono            ; console output routine
        jp      list            ; printer output routine
        jp      punch           ; punch output routine
        jp      reader          ; reader input routine


        jp      home            ; home disk routine
        jp      seldsk          ; select disk routine
        jp      settrk          ; select track routine
        jp      setsec          ; select sector routine
        jp      setdma          ; set disk buffer adr
        jp      read            ; disk read routine
        jp      write           ; disk write routine


        jp      listst          ; return list status
        jp      stran           ; sector translate


upvec:  jp      upromt          ; link to user # prompt patch (non-std)
      if USR0
pubvec: jp      public          ; link to patch to make user 0 public (non-std)
      endif


        form




;########################################################;
;#               PRIMARY DISK DRIVERS                   #;
;########################################################;


wboot:  ; System warm boot
        ;
        ld      sp,BUFF         ; use space below buffer for stack
        ld      c,0             ; always boot from drive 0
        call    seldsk
        push    de
        call    home            ; goto trk 0
        pop     ix              ; IX := ^DPB
        ld      a,(ix+FST)
        inc     a
        ld      (reqsec),a      ; reqsec := first system sector number
        ld      de,CCP          ; DE := initial load point
wb0:    push    de              ; save DMA adr
        ld      (reqdma),de     ; set DMA adr directly
        call    read            ; read next sector
        pop     de
        tsta
        jr      nz,wboot        ; retry entire boot if an error occurs
        ld      hl,128
        add     hl,de
        ex      de,hl
        ld      a,d
        cp      a,CBIOS/256     ; done?
        jr      nc,wb4          ; yes - initialize system
        ld      a,(ix+FST)
        add     a,(ix+SPT)
        dec     a               ; A := number of last sector on track
        ld      hl,reqsec
        inc     (hl)            ; increment sector adr
        cp      a,(hl)          ; need to change tracks?
        jr      nc,wb0          ; not yet
        ld      a,(ix+FST)
        ld      (hl),a          ; sector := first sector on track
        dec     hl              ; HL := ^ reqtrk
        inc     (hl)            ; trk := trk + 1
        ld      c,(hl)
        ld      b,0
        call    settrk          ; move to the new trk
        jr      wb0             ; continue
        ;
wb4:    call    reinit          ; reinitialize system
        ld      a,(0004h)
        ld      c,a             ; C := active drive no
        jp      CCP+3           ; enter CCP, ignore auto-start cmd line




reinit: ; System reinitialization code
        ;
        ld      a,0c3h          ; 8080 jmp instr
        ld      (0000h),a
        ld      hl,wbote
        ld      (0001h),hl      ; set up jump to warm boot routine
        ld      (0005h),a
        ld      hl,BDOSE
        ld      (0006h),hl      ; set up BDOS entry vector
        ret




seldsk: ; Select disk
        ;
        ; Entry:   C = desired drive
        ; Exit:    DE = ^ DPH, HL = ^ DPB
        ; Alters:  A
        ;
        ld      a,c
        ld      hl,0000h
        cp      a,MAXDRV+1      ; if bad(diskno) then
        ret     nc              ;    exit(FALSE)
        ld      (reqdrv),a      ; save requested disk
      if HDISK
        cp      a,MAXHD+1
        jr      nc,sdsk0        ; if reqdrv <= MAXHD then
        ld      hl,hdinif
        ld      a,(hl)
        tsta
        ld      (hl),TRUE       ;    if not initialized yet
        call    z,inihd         ;       initialize
        jr      getdp           ;    get ^DPH & ^DPB, exit
sdsk0   equ     $
      endif
        ld      a,(curdrv)      ; A := currently selected drive
        push    af
        call    getflg          ; HL := ^dflgs[curdrv]
        call    ckchg           ; see if current drive had disk changed
        ld      a,c             ; A := requested drive
      if HDISK
        sub     a,MAXHD+1
      endif
        or      a,1<<BFRENB|1<<MTRON|0<<SIDE1|0<<SDEN|1<<SELENB
        out     (FDXCSR),a      ; select requested drive
        call    grqdf           ; HL := ^dflgs[reqdrv]
        call    ckchg           ; check if requested drive had disk changed
        bit     DCBIT,(hl)
        call    nz,inidsk       ; set up drive parms if disk was changed
        pop     af              ; A := current drive
      if HDISK
        sub     a,MAXHD+1
      endif
        or      a,1<<BFRENB|1<<MTRON|0<<SIDE1|0<<SDEN|1<<SELENB
        out     (FDXCSR),a      ; re-select current drive
                                ; exit thru getdp




getdp:  ; Return pointers to DPH, DPB
        ;
        ; Entry:   (reqdrv) = requested disk number
        ; Exit:    HL = ^DPH, DE = ^DPB
        ; Altered: A, HL, DE
        ;
        ld      hl,(reqdrv)
        ld      h,0             ; HL := diskno
        add     hl,hl
        add     hl,hl
        add     hl,hl
        add     hl,hl           ; HL := 16 * diskno
        ld      de,dpbase
        add     hl,de           ; HL := ^dpbase[diskno*16]
        push    hl
        ld      de,10           ; offset to ^DPB
        add     hl,de
        ld      e,(hl)
        inc     hl
        ld      d,(hl)          ; DE := ^DPB
        pop     hl              ; HL := ^DPH
        ret




inidsk: ; Set drive parameters
        ;
        ; Entry:   reqdrv = drive number
        ;
        call    bosent          ; switch to local stack
        call    clrbfs          ; clear read buffers belonging to this drive
        call    ckden           ; check density
        ld      de,dp128s       ; assume SD SS
        ld      bc,xlt128
        ld      a,0 shl DDBIT or 0 shl DSBIT
        jr      c,inid0         ; jif SD SS
        ld      de,dp512s       ; now try for DD SS
        ld      bc,0000h
        in      a,(FDXCSR)
        bit     DSIDED,a
        ld      a,1 shl DDBIT or 0 shl DSBIT
        jr      z,inid0         ; jif DD SS
        ld      de,dp512d       ; set up for DD DS
        ld      a,1 shl DDBIT or 1 shl DSBIT
inid0:  push    af
        call    grqdf
        pop     af
        ld      (hl),a          ; set dflgs byte
        push    de
        call    getdp           ; HL := ^DPH
        ld      (hl),c
        inc     hl
        ld      (hl),b          ; set ^ sector translation vector in DPH
        ld      de,9            ; DE := offset to ^DPB
        add     hl,de
        pop     de
        ld      (hl),e
        inc     hl
        ld      (hl),d          ; set ^DPB in DPH to correct value
        clra
        out     (FDXCSR),a      ; deselect drive to clear disk change status
        call    print           ; print drive configuration info
        defb    CR,LF,'Drive ',0
        ld      a,(reqdrv)
        add     a,'A'
        call    putc            ; print drive ID
        call    print
        defb    ' changed to ',0
        call    grqdf
        bit     DSBIT,(hl)
        call    inid2           ; display side code
        call    print
        defb    'S ',0
        bit     DDBIT,(hl)
        call    inid2           ; display density code
        call    print
        defb    'D',CR,LF,0
        call    bosxit          ; restore CP/M's stack
        ret
        ;
inid2:  ld      a,'S'
        jr      z,inid4
        ld      a,'D'
inid4:  jp      putc




home:   ; Reset current drive to track 0
        ;
        ; Entry:   nil
        ; Exit:    nil
        ; Altered: A, BC
        ;
        call    bosent          ; save index regs, set up local stack
        call    flushr          ; flush modified buffers belonging to reqdrv
        call    bosxit          ; restore caller's stack, index regs
        ld      bc,0            ; seek to track zero, exit thru settrk




settrk: ; Set track address
        ;
        ; Entry:   BC = desired track address
        ; Exit:    nil
        ; Altered: A
        ;
      if HDISK
        ld      a,(reqdrv)
        cp      a,MAXHD+1
        ld      a,c
        jr      nc,strk0        ; if hard disk then
        and     a,07h
        ld      (reqhd),a       ;    (reqhd) := track mod 8
        ld      a,c
        and     a,0f8h          ;    track := track / 8
        or      a,b
        rrca
        rrca
        rrca
      else
        ld      a,c
      endif
strk0:  ld      (reqtrk),a      ; store requested track
        ret




setsec: ; Set sector number
        ;
        ; Entry:   C = desired sector number
        ; Exit:    nil
        ; Altered: A
        ;
        ld      a,c
        ld      (reqsec),a      ; save requested sector
        ret




setdma: ; Set DMA buffer address
        ;
        ; Entry:   BC = DMA buffer address
        ; Exit:    nil
        ; Altered: nil
        ;
        ld      (reqdma),bc     ; save requested DMA buffer adr
        ret




stran:  ; Translate logical to physical sector address
        ;
        ; Entry:   BC = logical sector number
        ;          DE = ^sector translation table
        ; Exit:    HL = 16 bit physical sector address
        ; Altered: A, HL, DE
        ;
        ex      de,hl           ; HL := ^xlat[0]
        ld      a,l
        or      a,h
        add     hl,bc           ; HL := ^xlat[sector]
        ret     z               ; if HL = 0 then return HL := sector
        ld      l,(hl)          ; else
        ld      h,0             ;    return HL := xlat[sector]
        ret




write:  ; Write a logical sector to the disk.
        ;
      if HDISK
        ld      a,(reqdrv)
        cp      a,MAXHD+1       ; if reqdrv <= MAXHD then
        jp      c,wrthd         ;    goto wrthd
      endif
        ld      a,c
        ld      (wrttyp),a
        call    bosent          ; set up a local stack
        call    rwsup           ; set up for write
        jr      nz,wrt1         ; if single density then
        ld      ix,reqdrv       ;    IX := ^ IOPB
        call    wrtsec          ;    write the sector directly
        call    bosxit
        ret
        ;                         else
wrt1:   call    ckbufs          ;    chk if sector is already in a buffer
        jr      nc,wrt2         ;    jif found sector
        call    getbuf          ;    get a buffer
        ld      a,(wrttyp)
        cp      a,WRUAL
        ld      a,1 shl UNALOC  ;    tentatively flag sector as unallocated
        push    ix
        call    nz,ckuna        ;    if wrttyp <> WRUAL then chk if unallocated
        pop     ix
        ld      (ix+BFLGS),a
        jr      nc,wrt2         ;    if not writing unallocated sector then
        call    rdsec           ;       pre-read the sector
        jr      z,wrt2          ;       if pre-read error then
        call    warn            ;          send error msg to operator
        defb    'Wrt pre-read err',0
        jr      rwxit           ;          exit
        ;
wrt2:   set     MODFID,(ix+BFLGS)  ; indicate buffer was modified
        call    gxadrs
        ex      de,hl
        ld      c,1 shl BFRENB or 0 shl BFRRD or 1 shl SELENB
        call    movbuf          ;    move data into buffer
        ld      a,(wrttyp)
        cp      a,WRDIR         ;    if wrttyp = WRDIR then
        call    z,flushr        ;       flush all modified buffers for reqdrv
        jr      rwxit           ;    check for errors, exit




read:   ; Read CP/M logical record at the current density
        ; Deblock if double density.
        ;
      if HDISK
        ld      a,(reqdrv)
        cp      a,MAXHD+1       ; if reqdrv <= MAXHD then
        jp      c,rdhd          ;    goto rdhd
      endif
        call    bosent          ; save index regs, set local stack
        call    rwsup           ; set up for read
        jr      nz,rd1          ; if single density then
        ld      ix,reqdrv       ;    IX := ^ IOPB
        call    rdsec           ;    read sector directly
        call    bosxit          ;    restore stack, index regs
        ret
        ;                         else
rd1:    call    ckbufs          ;    chk if desired record is in memory
        jr      nc,rd2          ;    jif found sector
        call    getbuf          ;    get a buffer for reading
        call    rdsec           ;    fill buffer
rd2:    call    gxadrs          ;    set up for block move of data from bfr
        ld      c,1 shl BFRENB or 1 shl BFRRD or 1 shl SELENB
        call    movbuf          ;    move data to user buffer
                                ;    chk error(s), set return error code, exit




rwxit:  ; Check for any errors, mark BDB inactive if any found
        ;
        ld      a,(errcod)
        tsta
        jr      z,rwx2          ; if error then
        ld      (ix+BDRV),-1    ;    mark BDB as inactive
rwx2:   call    bosxit          ; restore CP/M's stack, index regs
        ret




gxadrs: ; Set up registers for block move of data from buffer
        ; associated with BDB given by IX to user DMA address.
        ;
        ld      a,(reqsec)
        and     a,BUFMSK        ; A := reqsec & BUFMSK
        ld      h,a
        ld      l,0             ; HL := 256 * (reqsec & BUFMSK)
        srl     h
        rr      l               ; HL := offset within buffer
        ld      e,(ix+BBUFP)
        ld      d,(ix+BBUFP+1)
        add     hl,de           ; HL := 128 byte segment within buffer
        ld      de,(reqdma)
        ret




movbuf: ; Move data to/from disk controller buffer memory from/to
        ; requested DMA address.
        ;
        ; Entry:   HL = source adr, DE = destination adr
        ;          C = buffer select mask
        ;
        ld      (bmaadr),hl     ; plug source adr
        ld      (bmbadr),de     ;  & destination adr into DMA cmd string
        ld      a,(curdrv)      ; avoid changing drive selection
      if HDISK
        sub     a,MAXHD+1
      endif
        or      a,c
        out     (FDXCSR),a      ; enable and select buffer memory
        ld      hl,dmatb4
        jp      puttbl          ; transfer the data, exit




ckbufs: ; Check if the desired sector is amongst those buffered
        ;
        ; Entry:   reqdrv, reqtrk & reqsec = parms to match
        ; Exit:    CY = 1 if not found
        ;          CY = 0 if found, IX = ^BDB
        ;
        ld      ix,(bdblhd)     ; IX := ^ BDB list head
        ld      iy,bdblhd-BLINK ; IY := ^ previous BDB
        ld      b,not BUFMSK
ckbfs0: call    ckbuf           ; test next buffer
        jr      nc,ckbfs2       ; jif found match
        call    gnbdb           ; move to next BDB
        jr      nc,ckbfs0       ; try again if not at end of list
        ret                     ; return CY = 1
        ;
ckbfs2: call    relink          ; move the BDB to beginning of the list
        clrcf                   ; return CY = 0
        ret




ckbuf:  ; Check BDB given by IX against requested values
        ;
        ld      hl,reqdrv
        ld      a,(ix+BDRV)
        cp      a,(hl)          ; compare drive numbers
        jr      nz,ckbf0        ; jif mismatch
        inc     hl
        ld      a,(ix+BTRK)
        cp      a,(hl)          ; compare track numbers
        jr      nz,ckbf0        ; jif mismatch
        inc     hl
        ld      a,(hl)
        xor     a,(ix+BSEC)     ; compare sector numbers
        and     a,b             ; mask to test for desired range
        ret     z               ; match, return CY = 0
ckbf0:  scf                     ; mismatch, return CY = 1
        ret




ckuna:  ; Check if the current sector to be written is the next sector
        ; in an unallocated group of sectors.
        ;
        ld      ix,(bdblhd)     ; IX := ^ head of BDB list
        ld      a,(blkmsk)
        cpl
        ld      b,a
cku0:   bit     UNALOC,(ix+BFLGS)
        jr      z,cku2          ; jif not unallocated block
        call    ckbuf
        jr      nc,cku4         ; jif same as our block
cku2:   call    gnbdb           ; IX := ^ next BDB
        jr      nc,cku0         ; repeat til NIL
        ret                     ; return CY = 1
        ;
cku4:   ld      hl,reqsec
        ld      a,(ix+BSEC)
        cp      a,(hl)
        ccf
        jr      c,cku6
        res     UNALOC,(ix+BFLGS)
        ld      a,(hl)
        or      a,b
        add     a,BUFMSK
        inc     a
        ld      a,1 shl UNALOC
        ret     nc
cku6:   ld      a,0
        ret




clrbfs: ; Clear all buffers belonging to (reqdrv). This is
        ; done when a disk change has been detected on
        ; reqdrv.
        ;
        ld      ix,(bdblhd)     ; IX := ^ BDB list head
clrb0:  ld      a,(reqdrv)
        cp      a,(ix+BDRV)
        jr      nz,clrb2        ; if buffer belongs to reqdrv
        ld      (ix+BDRV),-1    ;    mark buffer as inactive
clrb2:  call    gnbdb           ; IX := ^ next BDB in list
        jr      nc,clrb0        ; repeat til NIL
        ret




flusha: ; Flush all modified active disk buffers
        ;
        ld      ix,(bdblhd)     ; IX := ^ BDB list head
flsha0: ld      a,(ix+BDRV)
        inc     a
        jr      z,flsha2        ; if buffer is active
        bit     MODFID,(ix+BFLGS) ;  and buffer has been modified then
        call    nz,wrtsec       ;    write buffer to disk
        call    nz,wrterr       ;    if error then print error msg
flsha2: res     MODFID,(ix+BFLGS)
        call    gnbdb           ; get next BDB
        jr      nc,flsha0       ; repeat til bdb[BLINK] = NIL
        ret




flushr: ; Flush all modified buffers belonging to (reqdrv)
        ;
        push    ix
        ld      ix,(bdblhd)     ; IX := ^ BDB list head
flshr0: ld      a,(reqdrv)
        cp      a,(ix+BDRV)     ; if buffer belongs to reqdrv
        jr      nz,flshr2
        bit     MODFID,(ix+BFLGS) ;  and buffer has been modified then
        call    nz,wrtsec       ;    write buffer to disk
        call    nz,wrterr       ;    if error then print error msg
        res     MODFID,(ix+BFLGS)
flshr2: call    gnbdb           ; get next BDB
        jr      nc,flshr0       ; repeat til bdb[BLINK] = NIL
        pop     ix
        ret




gnbdb:  ; Get next BDB (Buffer Descriptor Block):
        ;
        ld      e,(ix+BLINK)
        ld      d,(ix+BLINK+1)  ; DE := ^ next BDB (or NIL)
        ld      a,e
        or      a,d
        scf
        ret     z               ; return CY = 1 if found end of list
        push    ix
        pop     iy              ; IY := ^ previous BDB
        push    de
        pop     ix              ; IX := ^ next BDB
        clrcf
        ret                     ; return CY = 0




getbuf: ; Get a buffer from the buffer list
        ;
        ld      ix,(bdblhd)     ; IX := ^ LRA BDB
        ld      a,(ix+BDRV)     ; A := flags byte for LRA BDB
        inc     a
        jr      z,getb0         ; if bfr is active
        bit     MODFID,(ix+BFLGS) ;  and bfr was modified then
        call    nz,wrtsec       ;       write it to disk
        call    nz,wrterr       ;       if write error then print error msg
getb0:  push    ix
        pop     de
        ld      hl,reqdrv
        ld      bc,3
        ldir                    ; copy parms to BDB
        ld      (ix+BFLGS),c    ; clear flags byte (C contains 0 from ldir)
        ld      l,(ix+BLINK)
        ld      h,(ix+BLINK+1)
        ld      (bdblhd),hl     ; remove LRA BDB
        jr      addbdb          ; add BDB to list tail, exit




relink: ; Move the BDB list element addressed by IX to the tail of
        ; the list.
        ;
        ld      l,(ix+BLINK)
        ld      h,(ix+BLINK+1)
        ld      a,h
        or      a,l
        ret     z               ; nothing to do if at end of list
        ld      (iy+BLINK),l
        ld      (iy+BLINK+1),h




addbdb: ; Insert element at end of BDB list
        ;
        ld      iy,(bdbltl)
        push    ix
        pop     hl
        ld      (iy+BLINK),l    ; link in new BDB
        ld      (iy+BLINK+1),h
        clra
        ld      (ix+BLINK),a    ; set BLINK field of new BDB to NIL
        ld      (ix+BLINK+1),a
        ld      (bdbltl),hl
        ret




rwsup:  ; Set up for read or write logical sector
        ;
        ; Entry:   (reqdrv) = requested drive number
        ; Exit:    Z = 1 if single density, Z = 0 if double density
        ;          blkmsk = block mask from DPB
        ; Alters:  A, HL, DE
        ;
        clra
        ld      (errcod),a      ; errcod := 0
        call    getdp
        ld      hl,BLM
        add     hl,de
        ld      a,(hl)
        ld      (blkmsk),a      ; blkmsk := dpb[BLM]
        call    grqdf
        bit     DDBIT,(hl)
        ret


      if HDISK
        form
;########################################################;
;#                 HARD DISK DRIVERS                    #;
;########################################################;


wrthd:  ; Write disk sector
        ;
        ; entry parms:  none
        ; return parms: A = 0 if no error, 1 if error
        ; regs altered: A, BC, DE, HL
        ;
        call    hdsup           ; set up controller
        call    whd2            ; write the sector
        ret     z               ; exit if no error
        call    gasec           ; try to find alternate sector
        tsta
        ret     nz              ; not found
whd2:   ld      bc,[128<<8] | HDDAT
        ld      hl,(reqdma)
        ld      a,HDWRTC
        out     (HDCSR),a       ; issue write cmd
whd4:   in      a,(HDCSR)       ; wait for DRQ
        bit     DRQB,a
        jr      z,whd4
        otir                    ; fill buffer
        call    hdwat           ; wait for write to complete
        jr      rwhdx           ; test for errors, exit




rdhd:   ; Read hard disk sector
        ;
        ; entry parms:  none
        ; return parms: A = 0 if no error, 1 if error
        ; regs altered: A, BC, DE, HL
        ;
        call    hdsup           ; set up controller
        call    rhd2            ; read the sector
        ret     z               ; exit if no error
        call    gasec           ; try to find alternate sector
        tsta
        ret     nz              ; not found
rhd2:   ld      a,HDRDC
        out     (HDCSR),a       ; issue read cmd
        call    hdwat           ; wait for read to complete
        ld      bc,[128<<8] | HDDAT
        ld      hl,(reqdma)
        inir                    ; empty buffer
rwhdx:  in      a,(HDCSR)
        and     a,1<<HERRB      ; test for errors
        ret




gasec:  ; Get alternate sector.
        ;
        ; Entry:  nil
        ; Exit:   A = 0ffh if sector cannot be replaced,
        ;         A = 0 if ok.
        ;
        ld      hl,ast
        ld      b,1
gasec2: ld      a,(astsiz)
        cp      a,b
        ld      a,0ffh
        ret     c               ; exit if beyond end of table
        in      a,(HDCYLL)
        cp      a,(hl)
        inc     hl
        push    hl
        jr      nz,gasec4       ; cylinder #s differ
        in      a,(HDSDH)
        and     a,07h
        cp      a,(hl)
        inc     hl
        jr      nz,gasec4       ; head #s differ
        in      a,(HDSEC)
        cp      a,(hl)
        jr      z,gasec6        ; found match
gasec4: pop     hl
        inc     hl
        inc     hl
        inc     b
        jr      gasec2
        ;
gasec6: pop     hl
        in      a,(HDSDH)
        and     a,0f8h
        or      a,2             ; head := 2
        out     (HDSDH),a
        ld      a,b
        inc     a
        out     (HDSEC),a       ; sector := i + 1
        clra
        out     (HDCYLL),a      ; cylinder := 0
        ret




hdsup:  ; Set up hard disk controller for read/write operation
        ;
        ; Entry:   reqdrv = drive #, reqhd = head #, reqtrk = cylinder #
        ;          reqsec = sector #
        ; Exit:    nil
        ; Altered: A, HL
        ;
        ld      a,(reqdrv)      ; A := select code
     if HDSK12
        add     a,a             ; shift drive bits into position
        add     a,a
      endif
     if HDSK18
        ld      h,a             ; sneaky way of getting bits for
        add     a,a             ; maximum of 2 physical drives only
        add     a,h
      endif
        and     a,18h           ; least significant bit is discarded
        ld      hl,reqhd
        or      a,(hl)          ; or in head select bits
        or      a,SSZ128        ; set sector size code
        out     (HDSDH),a       ; output to controller
        clra
        out     (HDCYLH),a
        ld      a,(reqtrk)
        out     (HDCYLL),a      ; set cylinder adr
        ld      a,(reqsec)
        out     (HDSEC),a       ; issue sector adr
        ret




inihd:  ; Initialize hard disk controller
        ;
        clra
        ld      (reqtrk),a      ; reqtrk := 0
        ld      a,2
        ld      (reqhd),a       ; reqhd := 2
        ld      a,1
        ld      (reqsec),a      ; reqsec := 1
        call    hdsup
        ld      a,WPVAL
        out     (HDWPC),a       ; init write precomp
        ld      a,HDHOMC | 1111b
        call    inih4           ; issue slow restore cmd to get to cyl 0
        ld      a,HDHOMC | RATE
        call    inih4           ; issue another restore to set step rate
        ld      hl,astsiz+128
        ld      (reqdma),hl
        call    rdhd            ; read second sector of alternate sector table
        tsta
        jr      nz,inih2        ; error
        clra
        ld      (reqsec),a      ; reqsec = 0
        ld      hl,astsiz
        ld      (reqdma),hl
        call    rdhd            ; read first sector of alternate sector table
        tsta
        ret     z               ; ok
inih2:  call    warn
        defb    'Can''t read AST',0
        clra
        ld      (astsiz),a      ; mark table as empty
        ret
        ;
inih4:  out     (HDCSR),a
        call    hdwat           ; wait for restore to complete
inih6:  in      a,(HDCSR)
        bit     SEKCB,a
        jr      z,inih6
        ret




hdwat:  ; Wait for HDC to complete a command.
        ;
        ; Entry parms:  none
        ; Return parms: none
        ; Regs altered: A
        ;
        ex      (sp),hl
        ex      (sp),hl         ; delay for busy to be set
hdw0:   in      a,(HDCSR)       ; read controller status
        add     a,a             ; CY := bsy bit
        jr      c,hdw0          ; bsy
        ret


      endif ; HDISK


        form
;########################################################;
;#      SUPPORT ROUTINES FOR FLOPPY DISK DRIVERS        #;
;########################################################;


ckchg:  ; Check if disk was changed
        ;
        ; Entry:   HL = ^ to dflgs byte for selected drive
        ; Exit:    DCBIT bit in dflgs will be set if the disk
        ;          was changed.  Nothing occurs if no disk change
        ;          was detected.
        ;
        in      a,(FDXCSR)
        bit     DSKCHG,a
        ret     z               ; if disk changed then
        set     DCBIT,(hl)      ;    set disk change bit in flag byte
        ret




ckden:  ; Check disk density by restoring drive to track 0 with verify
        ; and then testing for record not found status.
        ;
        ; Entry:   nil
        ; Exit:    CY = 0 if double density, CY = 1 if single density
        ; Altered: A, BC, HL, IX
        ;
        clra
        ld      (reqsec),a      ; reqsec := 0 (force to side 0)
        call    grqdf
        set     DDBIT,(hl)      ; set to DD
        push    hl
        call    ckden2          ; try DD
        pop     hl
        ret     z               ; return CY = 0 if DD
        res     DDBIT,(hl)      ;
        call    ckden2          ; try SD
        scf
        ret     z               ; return CY = 1 if SD
        call    warn
        defb    'Set Density Err, ABORT (Y/N): ',0
        call    getyn           ; see if user wants to abort
        jr      c,ckden         ; try again
        clra
        ld      (0004h),a       ; specify drive A, user 0 (might get stuck)
        jp      wboot           ; warm boot system




ckden2: ; Select, recalibrate drive for ckden routine
        ;
        ld      ix,reqdrv
        call    select          ; select the drive, set to SS xD
        call    recal           ; home disk with verify
        in      a,(FDCSR)       ; get status from verify
        and     a,1 shl RNFBIT  ; mask for seek error bit
        ret




wrtsec: ; Write disk sector
        ;
        ; Entry:   IX = ^IOPB
        ; Exit:    A = 0 if no error, 1 if error
        ; Altered: A, BC, DE, HL
        ;
        ld      de,[WRTCMD shl 8] or WRTMSK; D := cmd, E := error mask
        jr      rws0            ; goto common read/write code




rdsec:  ; Read disk sector
        ;
        ; Entry:   IX = ^IOPB
        ; Exit:    A = 0 if no error, 1 if error (flags set from A)
        ; Altered: A, BC, DE, HL
        ;
        ld      de,[RDCMD shl 8] or RDMSK; D := read cmd, E := read error mask


rws0:   ld      l,(ix+BBUFP)
        ld      h,(ix+BBUFP+1)  ; HL := buffer adr
        ld      (dkaadr),hl     ; plug into DMA cmd string
        call    select          ; select dsk, sec, side, side sel flg, density
        ld      b,TRYS          ; B := retry cnt
rws2:   push    bc
        call    movehd          ; move head to (ix+IRTK)
        ld      hl,dmatb1       ; assume disk read
        bit     WRTBIT,d
        jr      z,rws4          ; if disk write
        ld      hl,dmatb2       ;    set up for DMA output
rws4:   call    puttbl          ; select transfer, direction
        ld      hl,dmatb3
        call    puttbl          ; send cmd string to DMA controller
        ld      a,d             ; A := read or write cmd
        ld      (lastrw),a
        out     (FDCSR),a       ; issue cmd
        pop     bc
        call    bsywat          ; wait for completion
        ld      a,DWREG6|DDMANO
        out     (DMACSR),a      ; disable DMA
        in      a,(FDCSR)       ; read controller status
        and     a,e             ; isolate error bits
        ret     z               ; no errors - done
        dec     b               ; count down errors
        jr      z,rws6          ; too many
        bit     RNFBIT,a
        call    nz,recal        ; recalibrate drive if record not found error
        jr      rws2            ; try again
        ;
rws6:   clra
        inc     a               ; A := 1
        ld      (errcod),a      ; errcod := 1
        ret




movehd: ; Move head on currently selected drive to (track)
        ;
        ; Entry:   (IX) = ^IOPB
        ; Exit:    nil
        ; Altered: A
        ;
        in      a,(FDTRK)
        cp      a,(ix+ITRK)
        ret     z               ; exit if already there
        ld      a,(ix+ITRK)
        out     (FDDAT),a       ; issue requested trk adr
        call    eradly          ; delay for tunnel erase if req'd
        ld      a,SEKCMD or LODHD or VERIFY or RATE
        out     (FDCSR),a       ; issue seek with headload cmd
        call    bsywat          ; wait til done
        jr      movehd          ;  then check if 179X screwed up track reg




recal:  ; Recalibrate drive by performing a restore operation
        ;
        call    eradly          ; delay for tunnel erase if we just wrote
        ld      a,HOMCMD or LODHD or VERIFY or RATE
        out     (FDCSR),a       ; issue restore cmd
        jr      bsywat          ; wait til done, exit




select: ; Select disk, sector, side, density
        ;
        ; Entry:   IX = ^IOPB, D = read or write cmd byte for 179X
        ; Exit:    cmd byte in D will have side select flag set if
        ;          side 1 was selected.
        ; Altered: A, HL, BC
        ;
        ld      c,(ix+IDRV)
        ld      a,c
        call    getflg
        ld      b,0<<BFRENB|1<<MTRON|0<<SIDE1|1<<SDEN|1<<SELENB
        bit     DDBIT,(hl)      ; Z=1 if SD
        ld      a,(ix+ISEC)
        jr      z,sel4          ; jif SD


        ld      b,1<<BFRENB|1<<MTRON|0<<SIDE1|0<<SDEN|1<<SELENB
        cp      a,DDSPS
        jr      c,sel0          ; jif sector on side0 of double density


        sub     a,DDSPS
        ld      b,1<<BFRENB|1<<MTRON|1<<SIDE1|0<<SDEN|1<<SELENB
        set     SETSF1,d        ; set side select flag in cmd byte
sel0:   bit     WRTBIT,d
        jr      z,sel2          ; if writing to disk then
        set     BFRRD,b         ;    set buffer read bit in select code
sel2:   srl     a
        srl     a               ; form physical sector adr
sel4:   out     (FDSEC),a       ; output to controller
        ld      a,c             ; A := new drv
      if HDISK
        sub     a,MAXHD+1
      endif
        or      a,b             ; or in side, density
        out     (FDXCSR),a      ; select requested drive
        ld      a,(curdrv)      ; A := curdrv
        cp      a,c
        ret     z               ; if changed drives then
        call    trkadr          ;    HL := ptr to trk storage for current drv
        in      a,(FDTRK)
        ld      (hl),a          ;    track setting saved
        ld      a,c             ;    A := new drive
        ld      (curdrv),a      ;    curdrv := new drive
        call    trkadr          ;    HL := ptr to trk storage for new drv
        ld      a,(hl)          ;    A := trk setting for requested drv
        out     (FDTRK),a       ;    output to controller
        out     (FDDAT),a
        ld      a,SEKCMD
        out     (FDCSR),a       ;    seek to same trk w/o hld to unload hd




bsywat: ; Wait while controller is busy
        ;
        ; Entry:   nil
        ; Exit:    nil
        ; Altered: A
        ;
        ex      (sp),hl         ; delay for FDC to set busy status
        ex      (sp),hl
        ex      (sp),hl
        ex      (sp),hl
bsyw0:  in      a,(FDCSR)       ; read controller status
        rra                     ; CY := bsy bit
        jr      c,bsyw0         ; loop while busy
        ret




trkadr: ; Get pointer to track address for drive in A
        ;
        ; Entry:   A = drive number
        ; Exit:    HL = pointer to track storage for drive
        ; Altered: HL, A
        ;
        ld      hl,tracks       ; HL := ^ drv 0 trk storage
        jr      indexa          ; exit thru indexa




grqdf:  ; Return pointer to flag byte for (reqdrv)
        ;
        ; Entry:   (reqdrv) = drive number
        ; Exit:    HL = ^ flag byte
        ; Alters:  A, HL
        ;
        ld      a,(reqdrv)      ; A := drive number, exit thru getflg




getflg: ; Return pointer to drive flag byte
        ;
        ; Entry:   A = drive number
        ; Exit:    HL = ^ flag byte
        ; Alters:  A, HL
        ;
        ld      hl,dflgs        ; HL := ^ drive flags array, exit thru indexa




indexa: ; HL := HL + A
        ;
        add     a,l
        ld      l,a
        ret     nc
        inc     h
        ret




bosent: ; Save IX and IY and then set up a local stack to avoid
        ; overflowing the CP/M BDOS stack.
        ;
        ; Entry:   nil
        ; Exit:    nil
        ; Altered: HL
        ;
        pop     hl              ; HL := return adr
        push    iy
        push    ix
        ld      (cpmsp),sp
        ld      sp,bosstk
        jp      (hl)




bosxit: ; Restore CP/M's stack pointer and then restore IX & IY
        ;
        ; Entry:   nil
        ; Exit:    nil
        ; Altered: HL
        ;
        pop     hl              ; HL := return adr
        ld      sp,(cpmsp)
        pop     ix
        pop     iy
        jp      (hl)




eradly: ; Delay for 600 microseconds for tunnel erase to cease
        ; if the last read/write operation was a write
        ;
        ld      a,(lastrw)
        bit     WRTBIT,a        ; if last operation was not a write then
        ret     z               ;    exit
        ld      a,150           ; count for 600 microsec at 4 mhz
edly0:  dec     a
        jr      nz,edly0
        ret


        form
;########################################################;
;#               NON-DISK I/O ROUTINES                  #;
;########################################################;


conif:  ; Flush any modified disk buffers, then get a character
        ; from the console.
        ;
        ; Entry:   nil
        ; Exit:    A = character read from console (parity reset)
        ; Altered: A, HL, DE, BC
        ;
        call    bosent          ; save index regs, switch to local stack
        call    flusha          ; flush all modified disk buffers
        call    bosxit          ; restore CP/M's stack ptr, index regs




coni:   ; Console input routine
        ;
        ; Entry:   nil
        ; Exit:    A = character read from console (parity reset)
        ; Altered: A
        ;
        in      a,(CRTCSR)
        and     a,1 shl RXAVAL
        jr      z,coni
        in      a,(CRTDAT)
        and     a,7fh
        ret




cono:   ; Console output routine
        ;
        ; Entry:   C = character to print at console
        ; Exit:    A = character printed (like tty driver)
        ; Altered: A
        ;
        in      a,(CRTCSR)
        bit     TXEMPT,a
        jr      z,cono
        ld      a,c
        out     (CRTDAT),a
        ret




cons:   ; Console status check
        ;
        ; Entry:   nil
        ; Exit:    A = 0 if no char avail, 0ffh if char avail
        ; Altered: A
        ;
        in      a,(CRTCSR)
        and     a,1 shl RXAVAL
        ret     z               ; return FALSE if no char available
        or      a,0ffh
        ret                     ; else return TRUE


      if not TTY40
list:   ; List device output handler
        ;
        ; Entry:   C = character to print at list device
        ; Exit:    A = character printed (like tty driver)
        ; Altered: A
        ;
      if LSTPAR ; using parallel port for LST device
        call    listst          ; check for ready
        jr      z,list          ; loop if not ready
        ld      a,stroff        ; be sure strobe off
        out     (LSTCTL),a
        ld      a,c             ; get character
;       cp      LF              ; is character = line feed?
;       jr      nz,otchar       ; output if no
;       ld      a,(prvchr)      ; get previous character
;       cp      CR              ; = car. ret.?
;       jr      z,noprnt        ; don't print present char if yes
;       ld      a,c             ; restore present character
;otchar: ld      (prvchr),a     ; save present character
        out     (LSTD),a        ; output it
        ld      a,stron         ; stobe on
        out     (LSTCTL),a
        ld      a,stroff        ; stobe off
        out     (LSTCTL),a
noprnt: ret
;prvchr: ds      1               ; previous char storage location
      endif ; using parallel port for LST device
      if NOT LSTPAR ; using serial port for LST device
        in      a,(LSTS)
        bit     TXEMPT,a
        jr      z,list
        ld      a,c
        out     (LSTD),a
        ret
        endif ; using serial port for LST device


     else ; assemble TTY-40 list driver


list:   ; List output device driver for Teletype model 40 lpt.
        ; enter with char in reg C.
        ;
        ld      a,c
        ld      hl,lncnt        ; HL := ^ line counter
        cp      a,LF            ; linefeed?
        jr      z,lfo           ; yes
        cp      a,FF            ; form feed?
        jr      z,ffo           ; yes
        cp      a,VT            ; vertical tab?
        jr      nz,putlst       ; no
        ;
vto:    ld      a,(hl)          ; fetch line cnt
        sub     a,5             ; decr by 5 lines
        ld      (hl),a          ; restore
        ld      a,c             ; A := output char
        ;
lfo:    dec     (hl)            ; decr line cnt by 1 line
        jp      p,vput          ; more lines left on page
        ;
ffo:    ld      c,FF            ; char to be issued to form new page
        ld      (hl),MXLCNT-1   ; reset line cntr
vput:   call    putlst          ; output char
        ld      c,0
        call    putlst          ; output two nulls after vertical motion, exit




putlst: ; Output the char in reg C to the line printer
        ;
        ld      de,1000h
pl0:    dec     de
        ld      a,e
        or      a,d
        call    z,lpulse        ; assume printer off, start it
        in      a,(LSTS)
        bit     TXEMPT,a
        jr      z,pl0
        ld      a,RSTXST|SREG0  ; reset external status
        out     (LSTS),a
        in      a,(LSTS)
        cpl
        and     a,1<<LBSY|1<<LFAULT
        jr      nz,pl0          ; not ready or printer error
        ld      a,c
        out     (LSTD),a        ; print character
        ret




lpulse: ; Start TTY 40 motor
        ;
        ld      a,NULCMD|SREG5
        out     (LSTS),a
        ld      a,TX8|TXENBL|RTS
        out     (LSTS),a        ; start of pulse
        clra
lpul0:  dec     a
        jr      nz,lpul0        ; 1 msec delay
        ld      a,NULCMD|SREG5
        out     (LSTS),a
        ld      a,DTR|TX8|TXENBL|RTS
        out     (LSTS),a        ; end of pulse
        ld      de,1000h
        ret


      endif ; not TTY40




listst: ; List ready status routine
        ;
        ; Entry:   nil
        ; Exit:    A = 0 if list device is busy,
        ;          0ffh if list device is ready for another char
        ; Altered: A
        ;
        in      a,(LSTS)
      if LSTPAR ; using parallel port for LST device
        and     a,bsymsk        ; just the busy status bit
        jr      nz,lstbsy       ; jump forward if busy
        or      a,0ffh
        ret                     ; return TRUE if printer busy
lstbsy: and     a,0
        ret                     ; else return FALSE
      endif ; using parallel port for LST device
      if NOT LSTPAR ; using serial port for LST device
        and     a,1 shl TXEMPT
        ret     z               ; return FALSE if printer busy
        or      a,0ffh
        ret                     ; else return TRUE
      endif ; using serial port for LST device


punch:  ; Punch output routine
        ;
        ; Entry:   C = character to put to punch
        ; Exit:    nil
        ; Altered: A
        ;
        in      a,(PUNCSR)
        bit     TXEMPT,a
        jr      z,punch
        ld      a,c
        out     (PUNDAT),a
        ret




reader: ; Reader input routine
        ;
        ; Entry:   nil
        ; Exit:    A = character read from reader (parity reset)
        ; Altered: A
        ;
        in      a,(RDRCSR)
        and     a,1 shl RXAVAL
        jr      z,reader
        in      a,(RDRDAT)
        and     a,7fh
        ret


        form
;########################################################;
;#                 UTILITY ROUTINES                     #;
;########################################################;


getyn:  ; Get Y/N response from console
        ;
        ; Entry:   nil
        ; Exit:    CY = 0 if "Y" entered, CY = 1 if anything else entered
        ; Altered: A, HL
        ;
        call    coni
        and     a,5fh           ; fold to UC alfa
        cp      a,'Y'           ; if char = "Y" then
        ret     z               ;    return CY = 0
        scf                     ; else
        ret                     ;    return CY = 1




wrterr: ; Print write error msg at console
        ;
        call    warn
        defb    'Buffer wrt err',0
        ret




warn:   ; Print warning message at console
        ;
        call    print           ; print preface to message, then msg, exit
        defb    CR,LF,BELL,'?BIOS: ',0




print:  ; Print literal string
        ;
        ; Entry:   string must follow call and must be terminated
        ;          by a zero byte.  to wit:
        ;               call print
        ;               defb <string>
        ;               defb 0
        ; Exit:    nil
        ; Altered: A, C
        ;
        ex      (sp),hl         ; HL := ptr to next char to type
        ld      a,(hl)          ; pick up
        inc     hl              ; move past char
        ex      (sp),hl         ; registers restored
        tsta                    ; done?
        ret     z               ; yes
        call    putc            ; type character
        jr      print           ; continue




putc:   ; Print character in A at console
        ;
        push    bc
        ld      c,a
        call    cono
        pop     bc
        ret




upromt: ; This routine prints the current user number at the
        ; console when the CCP prompts the user for a command.
        ;
        ld      c,SETUSR
        ld      e,-1
        call    BDOSE           ; get current user number
        cp      a,10
        jr      c,upr0          ; if >= 10 then
        sub     a,10            ;    form 0..5
        push    af
        ld      a,'1'
        call    upr2            ;    output leading "1"
        pop     af
upr0:   add     a,'0'           ; form ascii digit
        call    upr2            ; print user number
        ld      a,'>'           ; output ">" to complete prompt
upr2:   ld      e,a
        ld      c,CONOUT
        jp      BDOSE           ; output char, return to caller




      if USR0
public: ; Routine to implement BDOS patch to make
        ; user 0 public
        ;
        ld      a,b
        tsta
        jr      nz,pub0
        ld      a,(de)
        cp      0e5h
        jr      z,pub0
        ld      a,(hl)
        tsta
        jp      z,BDOS+077ch
pub0:   ld      a,b
        cp      0dh
        jp      BDOS+0761h
      endif ; USR0




puttbl: ; Output I/O initialization tables 'til zero length table
        ; tables are assumed to have the following format:
        ;
        ;       defb    length  ; length of data field
        ;       defb    port    ; output port address
        ;       defb    data1,data2,..,datan    ; data field
        ;
        ; Upon entry:   HL := ^ first table to output
        ;
        ld      a,(hl)          ; A := length
        tsta
        ret     z               ; done if length = 0
        ld      b,a
        inc     hl
        ld      c,(hl)          ; C := port adr, B := length
        inc     hl
        otir                    ; output table data
        jr      puttbl


        form
;########################################################;
;#            DMA CONTROLLER COMMAND STRINGS            #;
;########################################################;


;       DMA set-up cmd table for disk read operations:


dmatb1  equ     $
        defb    dt1sz,DMACSR
j       defv    $
        defb    DWREG4|DPBLAD|DBYTM     ; set port B adr, byte mode
        defb    FDDAT
        defb    DWREG0|DXFR|DXBTOA|DPALAD|DPAHAD|DBLKLL|DBLKLH
dt1sz   equ     $-j
        defb    0


;       DMA set-up cmd table for disk write operations:


dmatb2  equ     $
        defb    dt2sz,DMACSR
j       defv    $
        defb    DWREG0|DXFR|DXBTOA      ; set B as source (temp)
        defb    DWREG4|DPBLAD|DBYTM     ; set port B adr, byte mode
        defb    FDDAT
        defb    DWREG6|DLOAD            ; load B regs
        defb    DWREG0|DXFR|DXATOB|DPALAD|DPAHAD|DBLKLL|DBLKLH
dt2sz   equ     $-j
        defb    0


;       DMA final cmd table for disk read/write operations:


dmatb3  equ     $
        defb    dt3sz,DMACSR
j       defv    $
dkaadr: defs    2                       ; A start address goes here
        defw    -1                      ; length (BIG number)
        defb    DWREG6|DLOAD            ; load A regs
        defb    DWREG2|DPIO|DPAFIX|DPVTBF       ; set port B as I/O with
        defb    DCYL4                           ; fixed adr, set timing
        defb    DWREG6|DDMAGO           ; enable DMA
dt3sz   equ     $-j
        defb    0


;       DMA cmd table for memory-to-memory block moves:
;       Port A is the source.


dmatb4  equ     $
        defb    dt4sz,DMACSR
j       defv    $
        defb    DWREG0|DXFR|DXATOB|DPALAD|DPAHAD|DBLKLL|DBLKLH
bmaadr: defs    2                       ; storage for A adr
        defw    128-1                   ; length = 128 bytes
        defb    DWREG2|DPMEM|DPAINC|DPVTBF      ; port B is memory with inc adr
        defb    DCYL3                           ; set timing
        defb    DWREG4|DPBLAD|DPBHAD|DCONTM     ; set port B adr, cont mode
bmbadr: defs    2
        defb    DWREG6|DLOAD            ; load adr regs
        defb    DWREG6|DFRCR            ; force READY
        defb    DWREG6|DDMAGO           ; enable DMA
dt4sz   equ     $-j
        defb    0                       ; end of table


        form
;########################################################;
;#              DISK DEFINITION STRUCTURES              #;
;########################################################;


dpbase: ; disk parameter header tables (2 floppy drives, 2/3 hard disks)
        ;
      if HDISK
        defw    0000h,0000h,0000h,0000h         ; hard disk 0
        defw    dirbf,dphd0,0000h,hallv0
        ;
        defw    0000h,0000h,0000h,0000h         ; hard disk 1
        defw    dirbf,dphd1,0000h,hallv1
      endif
      if HDSK18
        defw    0000h,0000h,0000h,0000h         ; hard disk 2
        defw    dirbf,dphd2,0000h,hallv2
      endif


        defw    xlt128,0000h,0000h,0000h        ; floppy drive 0
        defw    dirbf,dp128s,fchkv0,fallv0
        ;
        defw    xlt128,0000h,0000h,0000h        ; floppy drive 1
        defw    dirbf,dp128s,fchkv1,fallv1




xlt128: ; sector translation vector for SD floppy with 128 byte sectors
        ;
        defb    01,07,13,19     ; 1..4
        defb    25,05,11,17     ; 5..8
        defb    23,03,09,15     ; 9..12
        defb    21,02,08,14     ; 13..16
        defb    20,26,06,12     ; 17..20
        defb    18,24,04,10     ; 21..24
        defb    16,22           ; 25, 26




dp128s: ; DPB for single density, single-sided 128 byte sector floppy disks
        ;
        defw    1*26            ; sectors per track
        defb    3               ; block shift factor
        defb    7               ; block mask
        defb    0               ; extent mask
        defw    242             ; disk size - 1
        defw    63              ; maximum directory number
        defb    0c0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    (63+1)/4        ; check size
        defw    2               ; track offset to group 0
        defb    2*26            ; number of OS sectors
        defb    1               ; first sector on track
        defb    0               ; buffer mask


dp512s: ; DPB for double density, single-sided 512 byte sector floppy disks
        ;
        defw    1*64            ; sectors per track
        defb    4               ; block shift factor
        defb    15              ; block mask
        defb    0               ; extent mask
        defw    303             ; disk size - 1
        defw    127             ; maximum directory number
        defb    0c0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    (127+1)/4       ; check size
        defw    1               ; track offset to group 0
        defb    1*64            ; number of OS sectors
        defb    0               ; first sector on track
        defb    BUFMSK          ; buffer mask


dp512d: ; DPB for double density, double-sided 512 byte sector floppy disks
        ;
        defw    2*64            ; sectors per track
        defb    5               ; block shift factor
        defb    31              ; block mask
        defb    1               ; extent mask
        defw    303             ; disk size - 1
        defw    255             ; maximum directory number
        defb    0c0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    (255+1)/4       ; check size
        defw    1               ; track offset to group 0
        defb    2*64            ; number of OS sectors
        defb    0               ; first sector on track
        defb    BUFMSK          ; buffer mask




      if HDISK
dphd0:  ; DPB for first logical hard disk
        ;
        defw    1*54            ; sectors per track
        defb    5               ; block shift factor
        defb    31              ; block mask
        defb    1               ; extent mask
        defw    1028            ; disk size - 1
        defw    511             ; maximum directory number
        defb    0f0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    0               ; check size (0 => don't check)
        defw    4               ; track offset to group 0
        defb    2*54            ; number of OS sectors
        defb    0               ; first sector on track
        defb    0               ; buffer mask


dphd1:  ; DPB for second logical hard disk
        ;
        defw    1*54            ; sectors per track
        defb    5               ; block shift factor
        defb    31              ; block mask
        defb    1               ; extent mask
        defw    1028            ; disk size - 1
        defw    511             ; maximum directory number
        defb    0f0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    0               ; check size (0 => don't check)
        defw    614             ; track offset to group 0
        defb    2*54            ; number of OS sectors
        defb    0               ; first sector on track
        defb    0               ; buffer mask


     endif  ; HDISK


  if HDSK18


dphd2:  ; DPB for third logical hard disk
        ;
        defw    1*54            ; sectors per track
        defb    5               ; block shift factor
        defb    31              ; block mask
        defb    1               ; extent mask
        defw    1028            ; disk size - 1
        defw    511             ; maximum directory number
        defb    0f0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    0               ; check size (0 => don't check)
        defw    1224            ; track offset to group 0
        defb    2*54            ; number of OS sectors
        defb    0               ; first sector on track
        defb    0               ; buffer mask


      endif ; HDSK18


        form
;########################################################;
;#               INITIALIZED DATA AREA                  #;
;########################################################;


bdblhd: defw    bdbbas          ; ^ head of BDB list
bdbltl: defw    bdbbas+[BUFCNT-1]*BDBSIZ  ; ^ tail of BDB list




bdbbas  equ     $               ; Buffer Descriptor Blocks (BDBs)
j       defv    1
        rept    BUFCNT
        defb    -1              ; drive number (-1 => not assigned)
        defs    1               ; track number
        defs    1               ; sector number
        defw    [j-1]*BUFSIZ+BUFBAS  ; ^buffer
        defb    0               ; buffer flags
        if j < BUFCNT
          defw  $+2             ; link to next BDB
        else
          defw  NIL             ; terminate list
        endif
j       defv    j+1
        endm


      if HDISK
hdinif: defb    FALSE           ; HD controller has been initialized if <> 0
      endif
lastrw: defb    RDCMD           ; last read or write cmd to FDC
curdrv: defb    0               ; currently active drive
dflgs   equ     $               ; array of drive flag bytes
        rept    MAXDRV+1
        defb    1 shl DCBIT     ; force drive initialization first time
        endm
lncnt:  defb    MXLCNT          ; current line cnt for lpt


        form
;########################################################;
;#                                                      #;
;#  EXTREMELY IMPORTANT NOTE:                           #;
;#  The following area initially contains the system    #;
;#  initialization code and tables.  After the system   #;
;#  has been initialized and the code is no longer      #;
;#  needed, the initialization code is overlayed by     #;
;#  bios scratch areas.  All code from here on will be  #;
;#  destroyed!!  Abandon hope, all ye who enter (code)  #;
;#  here.                                               #;
;#                                                      #;
;########################################################;


scrat   equ     $


sysini: ; Initialize system upon cold start
        ;
        ld      sp,BUFF
        ld      ix,binfo0
        call    setbd           ; set baudrate for crt
        ld      ix,binfo1
        call    setbd           ; set baudrate for lpt
        ld      ix,binfo2
        call    setbd           ; set baudrate for serial channels 1 & 2
        ld      a,(stopb2)
        ld      (stopb3),a      ; copy stop bit cmd byte to serial channel 2
        ld      hl,initbl       ; HL := ^I/O initialization tables
        call    puttbl          ; initialize everything


      if LSTPAR ; using parallel port for LST device
        ; now initialize parallel printer port
        ld      a,lstini
        out     (LSTCMD),a      ; initialize printer port
        ld      a,stroff        ; be sure strobe is off
        out     (LSTCTL),a
      endif ; using parallel port for LST device


        in      a,(SIO0AD)      ; clear all input channels
        in      a,(SIO0AD)
        in      a,(SIO0AD)
        in      a,(SIO0BD)
        in      a,(SIO0BD)
        in      a,(SIO0BD)
        in      a,(SIO1AD)
        in      a,(SIO1AD)
        in      a,(SIO1AD)
        in      a,(SIO1BD)
        in      a,(SIO1BD)
        in      a,(SIO1BD)
        clra
        ld      (curdrv),a      ; curdrv := 0
        call    print
        defb    CR,LF
;       defb    MSIZE/10 + '0', MSIZE mod 10 + '0'
        defb    '64'
        defb    'K ZOBEX
      if HDISK
        defb    'HD'
      else
        defb    'DD'
      endif
        defb    ' CP/M V'
        defb    VERS/10 + '0', '.', VERS mod 10 + '0'
        defb    ' (20-July-82)'
        defb    CR, LF
      if HDSK12
        defb    'Drives A and B are Hard Disks, C and D are Floppy Disks'
      endif
      if HDSK18
        defb    'Drives A, B and C are Hard Disks, D and E are Floppy Disks'
      endif
      if LSTPAR
        defb    CR,LF
        defb    'Centronics Parallel Port Used for List Device'
      endif
        defb    0
        call    reinit          ; reinitialize system
      if USR0
        ld      c,[1 shl 4] | 0  ; come up on drive 0, user 1
      else
        ld      c,[0 shl 4] | 0  ; come up on drive 0, user 0
      endif
        jp      CCP             ; enter system




setbd:  ; Set baudrate from descriptor table given by IX
        ;
        in      a,(swin)
        ld      b,(ix+0)        ; B := rotate count
        inc     b
setbd0: dec     b
        jr      z,setbd1
        rrca
        jr      setbd0
        ;
setbd1: and     a,(ix+1)        ; strip unwanted bits
        jr      nz,setbd2       ; if input value = 0 then
        ld      l,(ix+6)
        ld      h,(ix+7)
        set     3,(hl)          ;    set SIO init table for 2 stop bits
setbd2: ld      l,(ix+2)
        ld      h,(ix+3)        ; HL := ^ baudrate table
        call    indexa
        ld      a,(hl)          ; A := desired baudrate
        ld      l,(ix+4)
        ld      h,(ix+5)
        ld      (hl),a          ; plug baudrate count into CTC init table
        ret




binfo0: ;  Baud rate selection info for CRT
        ;
        defb    0               ; rotate count
        defb    07h             ; mask to isolate desired switches
        defw    bdtbl0          ; ^ baud rate selection table
        defw    baud0           ; ^ CTC count byte
        defw    stopb0          ; ^ stop bit init byte




binfo1: ;  Baud rate selection info for list device
        ;
        defb    3               ; rotate count
        defb    03h             ; mask to isolate desired switches
        defw    bdtbl1          ; ^ baud rate selection table
        defw    baud1           ; ^ CTC count byte
        defw    stopb1          ; ^ stop bit init byte




binfo2: ;  Baud rate selection info for serial channels 1 & 2
        ;
        defb    5               ; rotate count
        defb    07h             ; mask to isolate desired switches
        defw    bdtbl0          ; ^ baud rate selection table
        defw    baud2           ; ^ CTC count byte
        defw    stopb2          ; ^ stop bit init byte




bdtbl0: ; Baud rate count table # 0
        ;
        defb    174             ; 0: 110 baud
        defb    64              ; 1: 300 baud
        defb    32              ; 2: 600 baud
        defb    16              ; 3: 1200 baud
        defb    8               ; 4: 2400 baud
        defb    4               ; 5: 4800 baud
        defb    2               ; 6: 9600 baud
        defb    1               ; 7: 19200 baud




bdtbl1: ; Baud rate count table # 1
        ;
        defb    174             ; 0: 110 baud
        defb    64              ; 1: 300 baud
        defb    16              ; 2: 1200 baud
        defb    2               ; 3: 9600 baud


bdtbl2: ; Baud rate count table # 2
        ;
        defb    64              ; 1: 300 baud
        defb    16              ; 2: 1200 baud
        defb    2               ; 3: 9600 baud
        defb    1               ; 7: 19200 baud


initbl  equ     $
        ; initialization table for CRT:
        ;
        defb    it0sz,SIO0AC
j       defv    $
        defb    RSTCHN          ; reset channel
stopb0: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
it0sz   equ     $-j             ; size of this table


        ; initialization table for line printer:
        ;
        defb    it1sz,SIO0BC
j       defv    $
        defb    RSTCHN          ; reset channel
stopb1: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|ATOENB|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
it1sz   equ     $-j


        ; initialization table for CRT 1:
        ;
        defb    it2sz,SIO1AC
j       defv    $
        defb    RSTCHN          ; reset channel
stopb2: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
it2sz   equ     $-j


        ; initialization table for CRT 2:
        ;
        defb    it3sz,SIO1BC
j       defv    $
        defb    RSTCHN          ; reset channel
stopb3: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
it3sz   equ     $-j


        ; initialization table for CRT baud rate:
        ;
        defb    it4sz,CTC0      ; ctc channel 0
j       defl    $
        defb    CTCRST|CTCDI|CTRMOD|DIV16|HITOLO|LODTC|CTCCCR
baud0:  defb    2               ; baud rate count
it4sz   equ     $-j


        ; initialization table for line printer baud rate:
        ;
        defb    it5sz,CTC1      ; ctc channel 1
j       defl    $
        defb    CTCRST|CTCDI|CTRMOD|DIV16|HITOLO|LODTC|CTCCCR
baud1:  defb    2*8             ; baud rate count
it5sz   equ     $-j


        ; initialization table for serial channel 1 & 2 baud rates:
        ;
        defb    it6sz,CTC2      ; ctc channel 2
j       defl    $
        defb    CTCRST|CTCDI|CTRMOD|DIV16|HITOLO|LODTC|CTCCCR
baud2:  defb    2               ; baud rate count
it6sz   equ     $-j


        ; DMA start-up initialization table:
        ;
        defb    it7sz,DMACSR
j       defv    $
        defb    DWREG6|DRESET                   ; reset DMA controller
        defb    DWREG6|DRESET
        defb    DWREG6|DRESET
        defb    DWREG6|DRESET
        defb    DWREG6|DRESET
        defb    DWREG6|DRESET
        defb    DWREG5|DRDYHI                   ; define READY as active low
        defb    DWREG1|DPMEM|DPAINC|DPVTBF      ; set port A as memory with
        defb    DCYL3                           ; incrementing adr, set timing
it7sz   equ     $-j             ; size of this table


        ; initialization table for 9519 i'rupt controller:
        ;
        defb    2,IRCCMD
        defb    IRCRST,IRCDIS   ; reset and disable controller


        defb    0               ; *** end of initialization tables
        defb    0


endlod  equ     $-1             ; last initialized location


  if endlod >= 0                ; check for memroy overflow
        memory requirment is too much (load)
    endif


        form
;########################################################;
;#              UNINITIALIZED DATA AREA                 #;
;########################################################;


        org     scrat           ; overlays initialization code


dirbf:  defs    128             ; directory buffer area


fallv0: defs    303/8+1         ; floppy disk allocation vector 0
fallv1: defs    303/8+1         ; floppy disk allocation vector 1


      if HDISK
hallv0: defs    1179/8+1        ; hard disk allocation vector 0
hallv1: defs    1179/8+1        ; hard disk allocation vector 1
      endif
      if HDSK18
hallv2: defs    1179/8+1        ; hard disk allocation vector 2
      endif


fchkv0: defs    (255+1)/4       ; check vector 0
fchkv1: defs    (255+1)/4       ; check vector 1


tracks: defs    MAXDRV+1        ; array of current track positions


blkmsk: defs    1               ; block mask
errcod: defs    1               ; error code from read/write operations
wrttyp: defs    1               ; write type code


reqhd:  defs    1               ; requested head number (used only for HD)
reqdrv: defs    1               ; requested drive number
reqtrk: defs    1               ; requested track number
reqsec: defs    1               ; requested sector number
reqdma: defs    2               ; requested DMA adr


      if HDISK
astsiz: defb    0               ; current size of alternate sector table
ast:    defs    [2*128]-1       ; alternate sector table
      endif


        defs    2*16            ; local stack for stack crazy BIOS
bosstk  equ     $
cpmsp:  defs    2               ; storage for CP/M's stack pointer


endscr  equ     $-1             ; last memory location used


  if endscr >= 0                ; check for memroy overflow
        memory requirment is too much (scratch)
    endif


        end     CBIOS